home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR39.PFILE1.ARC / (пOLLING бOOTH (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  11.9 KB  |  403 lines
  1. 100 POKE152,PEEK(251)
  2. 105 Q$=CHR$(34):DIMQU$(20)
  3. 110 GOTO470
  4. 120 :
  5. 130 :REM START OF USER JUMP TABLE.
  6. 140 :
  7. 150 GOTO660 :REM CHECK FOR CARRIER.
  8. 160 GOTO720 :REM SEND P$+CHR$(13) OUT.
  9. 170 GOTO730 :REM SEND P$ OUT.
  10. 180 GOTO770:REM GET L$ FROM MODEM.
  11. 190 GOTO860:REM CALL FOR CHAT.
  12. 200 GOTO900:REM ENGAGE CHAT MODE.
  13. 210 GOTO2150:REM SEND 'P' TO USERFILE.
  14. 220 B=D7%:GOTO1000:REM READ ERR CHNNL.
  15. 230 GOTO1020:REM READ SYSTEM CLOCK.
  16. 240 GOTO1080:REM DISPLAY USER STATS.
  17. 250 GOTO1220:REM DISPLAY USER ONLINE.
  18. 260 GOTO1240:REM EDIT USER STATISTICS.
  19. 270 GOTO1610:REM REMOTE SYSOP MENU.
  20. 280 GOTO1830:REM DISPLAY DIR.
  21. 290 GOTO2130:REM BREAK RC INTO LO/HI.
  22. 300 GOTO2180:REM UPDATE (USER LOG).
  23. 310 GOTO2190:REM SAME AS 2330.
  24. 320 GOTO2200:REM GET U$() FROM DISK.
  25. 330 GOTO2210:REM GET N$() FROM DISK.
  26. 340 GOTO2220:REM SEND U$() TO DISK.
  27. 350 GOTO2230:REM SEND N$() TO DISK.
  28. 360 GOTO2250:REM FIND DV,DR$ IN DR%().
  29. 370 GOTO2270:REM FIND DV,DR$
  30. 380 GOTO2280:REM INCREMENT DV,DR$.
  31. 390 GOTO2340:REM HANG UP PHONE
  32. 400 GOTO2400:REM FIND TIME CONNECTED.
  33. 410 GOTO2560:REM RETURN TO BBS.
  34. 420 GOTO2570:REM LOAD NEXT MODULE.
  35. 430 GOTO2450:REM GET SC() FROM DISK.
  36. 440 GOTO2530:REM SEND SC() TO DISK.
  37. 450 GOTO2430:REM SEND SEQ OUT.
  38. 460 :
  39. 470 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:N$=CHR$(0):SI=54272
  40. 480 DIMU$(15),N$(15),DR%(7):DR$="0"
  41. 490 GOSUB500:GOTO550
  42. 500 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,A:IFA=0THEN520
  43. 510 FORI=0TOA-1:INPUT#1,A$,A,A:NEXT
  44. 520 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  45. 530 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  46. 540 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4:CLOSE1:RETURN
  47. 550 F$=CHR$(13):P=0:POKE51972,P:SYS51976:BS=255:UL$=""
  48. 560 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":GOTO2630
  49. 570 IFA$="[133]"THENSY=SY+1:GOSUB1610:SY=SY-1:RETURN
  50. 580 IFA$="[134]"THENGOSUB900:TI$="000000":RETURN
  51. 590 IFA$="[140]"THENCD=1:RETURN
  52. 600 IFL<>65535THENRETURN
  53. 610 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"[212]IME [197]LAPSED![152]":CLOSE1
  54. 620 CD=1:UL$="":RETURN
  55. 630 IFA$=""ORZ$=""THENGOSUB650
  56. 640 RETURN
  57. 650 POKESI+4,21:POKESI+4,20:RETURN
  58. 660 CD=0:IFSYTHENRETURN
  59. 670 IF(PEEK(B1)AND16)<>HLTHENRETURN
  60. 680 TI$="000000"
  61. 690 IF(INPUT#(B1)AND16)<>HLTHENRETURN
  62. 700 IFVAL(TI$)>5THENCD=1:RETURN
  63. 710 GOTO690
  64. 720 P$=P$+F$
  65. 730 IFL=55THENPRINT#4,P$;:RETURN
  66. 740 POKE52030,SY:POKE52031,CG:POKE52040,MM:SYS51994,P$
  67. 750 CD=PEEK(52033):A$=CHR$(PEEK(52034)):IFA$=CHR$(0)THENA$=""
  68. 760 RETURN
  69. 770 GOSUB2400:IFVAL(U$(14))<COTHEN810
  70. 780 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L:POKE52040,MM
  71. 790 L$="ES!ODORE 64C OF TIMES.UT OF BUS.N:    ":SYS52003,L$:CD=PEEK(52033)
  72. 800 L=PEEK(52034)+256*PEEK(52036):A$=CHR$(PEEK(52034)):GOSUB570:RETURN
  73. 810 P$=F$+F$+"[217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!!"+F$+"[199][207][207][196][194][217][197]!"+F$:GOSUB160
  74. 820 GOTO410
  75. 830 P$=F$+"[197]NTER [193]CCESS LEVEL: ":GOSUB170:L=5:GOSUB180:IFCDTHENRETURN
  76. 840 IFVAL(L$)<0ORVAL(L$)>65535ORL$=""THENRETURN
  77. 850 L=VAL(L$):A2=INT(L/256):A1=L-A2*256:A$=CHR$(A1)+CHR$(A2):RETURN
  78. 860 IFSA<>1THENP$=F$+F$+SY$+" IS NOT AVAILABLE RIGHT NOW.":GOSUB160:RETURN
  79. 870 P$="[195]ALLING "+SY$+"....":GOSUB160:FORI=1TO20:GETA$:IFA$="[134]"THEN900
  80. 880 GOSUB650:FORT=1TO600:NEXT:NEXT
  81. 890 P$="[212]RY AGAIN LATER....":GOSUB160:RETURN
  82. 900 P$=F$+F$+SY$+", CHATTING WITH "+U$(1)+F$:GOSUB160
  83. 910 SYS52012:A$=CHR$(PEEK(52034)):CD=PEEK(52033)
  84. 920 IFA$="[134]"ORCDTHENP$=F$+SY$+" HAS RETURNED TO "+BD$+".":GOSUB160:RETURN
  85. 930 IFA$="[133]"THENSY=SY+1:GOSUB1610:SY=SY-1
  86. 940 IFA$="[140]"THENCD=1:RETURN
  87. 950 RETURN
  88. 960 GOSUB2140:AA=RF:GOSUB2250
  89. 970 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB1000:NEXT
  90. 980 GOSUB1000:IFER$<"20"ORER$="50"THENRETURN
  91. 990 PRINT"[197]RROR IN (USERFILE)!":GOSUB2340:STOP
  92. 1000 ES$="":GOSUB1010:ER$=LEFT$(ES$,2):RETURN
  93. 1010 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO1010:RETURN
  94. 1020 T1$="10:24:20.5 PM":SYS51982,T1$:TM$=T1$+""
  95. 1030 HO$=LEFT$(TM$,2):MI$=MID$(TM$,4,2):FZ$=RIGHT$(TM$,2)
  96. 1040 IFVAL(LEFT$(TM$,2))<>12ANDFZ$<>"AM"THENC2=1:GOTO1070
  97. 1050 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  98. 1060 IFC2THENC2=0:NT=0:IFS9THENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  99. 1070 DA$=M$+STR$(DT):RETURN
  100. 1080 P$=F$+"[217]OUR [211]TATISTICS...."+F$:GOSUB160
  101. 1090 P$="[206]AME          : "+U$(1):GOSUB160
  102. 1100 P$="[193]CCESS LEVEL  :"+STR$(AC):GOSUB160:GOSUB1020
  103. 1110 P$="[196]ATE/[212]IME     : "+DA$+" "+TM$:GOSUB160:GOSUB2400
  104. 1120 P$="[195]ONNECT [212]IME  :"+STR$(CO)+" MINS.":GOSUB160
  105. 1130 P$="[205]EMBER #      : "+R$:GOSUB160
  106. 1140 P$="[208]ASSWORD      : "+U$(4):GOSUB160
  107. 1150 P$="[193]GE           : "+U$(6):GOSUB160
  108. 1160 P$="[210]EAL [206]AME     : "+U$(7):GOSUB160
  109. 1170 P$="[212]OTAL [213]/[204]'S   : "+U$(9):GOSUB160
  110. 1180 P$="[212]OTAL [196]/[204]'S   : "+U$(10):GOSUB160
  111. 1190 P$="       [[210]ATIO - "+MID$(STR$(RR),2)+":1]":GOSUB160
  112. 1200 P$="[204]AST CALL DATE: "+U$(11):GOSUB160
  113. 1210 P$="[212]OTAL CALLS   : "+U$(12):GOSUB160:RETURN
  114. 1220 PRINT"[156]"F$U$(1)" <*> [204]VL-"+MID$(STR$(AC),2):GOSUB2400
  115. 1230 PRINTTM$" [195]ONNECTED:"STR$(CO)" MINS.[152]":RETURN
  116. 1240 P$=" [147][197]NTER ACCOUNT # OF USER.":GOSUB160
  117. 1250 P$="[193]CCOUNT # OF CURRENT USER: "+R$:GOSUB160
  118. 1260 P$="[214][213]:":GOSUB170:L=3:GOSUB180:IFCDTHENRETURN
  119. 1270 IFL$=""THENRETURN
  120. 1280 E$=L$+"":IFL$=R$THENFORL=1TO15:N$(L)=U$(L):NEXT:AA=AC:GOTO1300
  121. 1290 OPEN3,RF,3,RF$:RC=VAL(L$):GOSUB960:GOSUB2210:CLOSE3
  122. 1300 P$=" [147]1 - [206]AME      : "+N$(1)+F$+"2 - [208]HONE     : "+N$(2):GOSUB160:GOSUB2170
  123. 1310 P$="3 - [193]CCESS [204]VL:"+STR$(AA)+F$+"4 - [208]ASSWORD  : "+N$(4):GOSUB160
  124. 1320 P$="5 - # OF [197]MAIL: "+N$(5)+F$+"6 - [193]GE       : "+N$(6):GOSUB160
  125. 1330 P$="7 - [210]EAL NAME : "+N$(7)+F$+"8 - C/G MODE  : "+N$(8):GOSUB160
  126. 1340 P$="9 - [212]OTAL [213]/[204] : "+N$(9)+F$+"[193] - [212]OTAL [196]/[204] : "+N$(10):GOSUB160
  127. 1350 P$="[194] - [204]AST CALL : "+N$(11):GOSUB160
  128. 1360 P$="[195] - # CALLS   : "+N$(12):GOSUB160
  129. 1370 P$="[196] - [195]ALLS/[196]AY : "+N$(13)+F$+"[197] - [212]IME/[195]ALL : "+N$(14):GOSUB160
  130. 1380 P$="[198] - [195]ALLS[212]ODAY: "+N$(15):GOSUB160
  131. 1390 IFL=55THENL=0:PRINT#4:CLOSE4:GOTO1300
  132. 1400 P$=F$+"[215]HICH TO CHANGE:":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  133. 1410 IFL$=""ANDR$=E$THENFORL=1TO15:U$(L)=N$(L):NEXT:AC=AA:GOTO1240
  134. 1420 IFL$=""THEN1240
  135. 1430 IFL$="S"ORL$="[211]"THEN1510
  136. 1440 IFL$="P"ORL$="[208]"THENL=55:OPEN4,4,7:GOTO1300
  137. 1450 S=(ASC(L$)AND127)-64:IFS=>1ANDS<=6THENS=S+9:GOTO1480
  138. 1460 S=VAL(L$):IFS<1ORS>9THEN1300
  139. 1470 IFS=3THENGOSUB830:N$(3)=A$:AA=A:GOTO1300
  140. 1480 P$=F$+"["+N$(S)+"]:[195]HANGE TO->":GOSUB170
  141. 1490 L=20:GOSUB180:IFCDTHENRETURN
  142. 1500 N$(S)=L$+"":GOTO1300
  143. 1510 P$=F$+"[211]AVE STATS WHERE? (DEFAULT="+E$+"):":GOSUB170
  144. 1520 L=3:GOSUB180:IFCDTHENRETURN
  145. 1530 IFL$<>""ANDVAL(L$)>0THENE$=L$+""
  146. 1540 P$=F$+"[211]AVE AT: "+E$:GOSUB160
  147. 1550 P$="[195]ORRECT? (Y/N):":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  148. 1560 IFL$<>"Y"ANDL$<>"[217]"THEN1300
  149. 1570 OPEN3,RF,3,RF$:RC=VAL(E$):GOSUB960
  150. 1580 GOSUB2230
  151. 1590 CLOSE3
  152. 1600 RETURN
  153. 1610 AA=DV:GOSUB2250
  154. 1620 P$=" [147]":GOSUB160
  155. 1630 P$=DC$+F$+"   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--"+F$+DC$+F$:GOSUB160
  156. 1640 P$="[214] - [214]ALIDATE USER":GOSUB160
  157. 1650 P$="[193] - [211]CAN ANY SEQ ON DISK":GOSUB160
  158. 1660 P$="$ - [196]IRECTORY":GOSUB160
  159. 1670 P$="@ - [196]OS COMMANDS":GOSUB160
  160. 1680 P$="[213] - [211]CAN USER LOG":GOSUB160
  161. 1690 P$="[212] - [212]ODAY'S CALLERS":GOSUB160
  162. 1700 P$="# - [212]OGGLE DRIVE #"+STR$(DV)+";"+DR$:GOSUB160
  163. 1710 P$=F$+"[210][211][205]"+MID$(STR$(DV),2)+";"+DR$+":":GOSUB170:L=1:GOSUB180:IFCDTHENRETURN
  164. 1720 IFL$=""THENRETURN
  165. 1730 L$=CHR$(ASC(L$)AND127)
  166. 1740 GOSUB2180:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  167. 1750 ON-(L$="U")-2*(L$="A")-3*(L$="V")-4*(L$="$")GOSUB1970,2080,1240,1830
  168. 1760 ON-(A$="#")-2*(L$="T")GOSUB2280,2070
  169. 1770 IFL$="?"THEN1620
  170. 1780 IFL$<>"@"THEN1710
  171. 1790 P$=F$+">":GOSUB170:L=39:GOSUB180:IFCDTHENRETURN
  172. 1800 IFL$=""THENGOSUB1000:P$=F$+ES$:GOSUB160:GOTO1710
  173. 1810 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  174. 1820 GOTO1710
  175. 1830 P$=F$:GOSUB160:OPEN1,DV,0,"$"+DR$+":*"
  176. 1840 GOSUB1000:IFER$>"01"THENCLOSE1:P$=F$+ES$:GOSUB160:RETURN
  177. 1850 GET#1,A$:GET#1,A$
  178. 1860 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  179. 1870 GET#1,LO$:GET#1,HI$
  180. 1880 LO$=LO$+N$:HI$=HI$+N$
  181. 1890 P$=STR$(ASC(LO$+CHR$(0))+256*ASC(HI$+CHR$(0)))+" "
  182. 1900 GET#1,A$:IFA$=""THEN1940
  183. 1910 GET#5,Z$:IFZ$=""THENGETZ$
  184. 1920 IFZ$=" "THENCLOSE1:RETURN
  185. 1930 P$=P$+A$:GOTO1900
  186. 1940 IFECANDMID$(P$,8,1)="("THEN1860
  187. 1950 GOSUB160:IFA$=" "THENCLOSE1:RETURN
  188. 1960 GOTO1860
  189. 1970 FI$="(USER LOG)"
  190. 1980 OPEN1,DV,5,DR$+":"+FI$:P$="":GOSUB1000:IFER$>"01"THENCLOSE1:RETURN
  191. 1990 GET#1,A$:IF(ST)AND64THEN2040
  192. 2000 GET#5,Z$:IFZ$=""THENGETZ$
  193. 2010 IFZ$=" "ORZ$="/"THEN2040
  194. 2020 IFA$=CHR$(13)ORLEN(P$)=39THENGOSUB160:P$="":GOTO1990
  195. 2030 P$=P$+A$:GOTO1990
  196. 2040 GOSUB160:CLOSE1:P$=F$+"[211]CRATCH? (Y/N):":GOSUB170:L=1:GOSUB180
  197. 2050 IFL$=""OR(L$<>"Y"ANDL$<>"[217]")THENRETURN
  198. 2060 OPEN1,DV,5,"@"+DR$+":"+FI$+",S,W":PRINT#1," ":CLOSE1:RETURN
  199. 2070 FI$="(T.CALLERS)":GOTO1980
  200. 2080 P$=F$+"[211]CAN FILE: ":GOSUB170:L=16:GOSUB180
  201. 2090 FI$=L$+"":GOTO1980
  202. 2100 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  203. 2110 GOSUB2100:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  204. 2120 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB2100:RETURN
  205. 2130 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  206. 2140 GOSUB2130:R1=LO:R2=HI:RETURN
  207. 2150 GOSUB2140:GOTO970
  208. 2160 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-A2*256:RETURN
  209. 2170 AA=VAL(N$(3)):RETURN
  210. 2180 IFLEN(UL$)<230THENRETURN
  211. 2190 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  212. 2200 GOSUB2210:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  213. 2210 FORT=1TO15:INPUT#3,N$(T):NEXT:RETURN
  214. 2220 FORI=1TO15:N$(I)=U$(I):NEXT
  215. 2230 N$(0)="":FORT=1TO15:N$(0)=N$(0)+Q$+N$(T)+F$:NEXT
  216. 2240 PRINT#3,N$(0):RC=1:GOSUB960:RETURN
  217. 2250 B=8-(AAAND63):IFB<0THENB=0
  218. 2260 AA=-((DR%(B)AND128)=128):DR$=MID$(STR$(AA),2):RETURN
  219. 2270 GOSUB2250:AA=-((DVAND128)=128):DR$=MID$(STR$(AA),2):RETURN
  220. 2280 IFDR$="0"THENAA=DV:GOSUB2250:IFDR$="1"THENRETURN
  221. 2290 DV=DV+1:IFDV>15THENDV=8
  222. 2300 FORL=0TO(DR-8):IFDV<>(DR%(L)AND63)THENNEXT:GOTO2290
  223. 2310 IFA1AND32ORSYTHEN2330
  224. 2320 AA=DV:GOSUB2250:IFDR%(B)AND64THEN2290
  225. 2330 AA=DV:GOSUB2250:DR$="0":RETURN
  226. 2340 ON(MT%-1)GOTO2350,1690,2380,2390,2110,2110
  227. 2350 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  228. 2360 FORT=1TO2000:NEXT:PRINT#5,"+++";:FORT=1TO2000:NEXT
  229. 2370 PRINT#5,"[193][212][200]0[216]1[197]0[205]0[209]0[214]0[211]0=0":RETURN
  230. 2380 POKEB2,38:POKEB1,38:RETURN
  231. 2390 POKEB1,PEEK(B1)OR32:RETURN
  232. 2400 GOSUB1020:CT=VAL(HO$):MI=VAL(MI$):CO=ABS((LH*60+LM)-(CT*60+MI))
  233. 2410 IFLH=12ANDC2THENCO=ABS(CO-720)
  234. 2420 RETURN
  235. 2430 B=DV-8:OPEN1,DV,5,DR$+":"+FI$:GOSUB220:IFER$>"01"THENCLOSE1:RETURN
  236. 2440 POKE52030,SY:SYS52021:CLOSE1:CD=PEEK(52033):A$=CHR$(PEEK(52034)):RETURN
  237. 2450 OPEN3,8,3,"0:(SCORES)":GOSUB220:IFER$>"01"THENCLOSE3:RETURN
  238. 2460 RC=R:GOSUB2130:B=0:GOSUB970:GET#3,A$:IF(ST)AND64THENSC=0:GOTO2480
  239. 2470 INPUT#3,SC
  240. 2480 IFSC=0THENSC=I:CLOSE3:DIMSC(SC):RETURN
  241. 2490 IFI>SCTHENDIMSC(I):GOTO2510
  242. 2500 DIMSC(SC)
  243. 2510 FORT=1TOSC:INPUT#3,SC(T):NEXT:CLOSE3:IFI>SCTHENSC=I
  244. 2520 RETURN
  245. 2530 OPEN3,8,3,"0:(SCORES)":GOSUB220:IFER$>"01"THENCLOSE3:RETURN
  246. 2540 RC=R:GOSUB2130:B=0:GOSUB970:SC$=STR$(SC)+F$:FORT=1TOSC
  247. 2550 SC$=SC$+STR$(SC(T))+F$:NEXT:PRINT#3,SC$;:RC=1:GOSUB970:CLOSE3:RETURN
  248. 2560 FI$="(ST/R 3.?)":DV=D5
  249. 2570 OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:AA=DV:GOSUB2270:FORT=1TO15
  250. 2580 PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SA:PRINT#1,SY
  251. 2590 PRINT#1,S9:PRINT#1,HL:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LN$
  252. 2600 PRINT#1,DV:PRINT#1,NW:PRINT#1,L$:CLOSE1:POKE252,32
  253. 2610 POKE251,PEEK(152):PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127""
  254. 2620 POKE631,131:POKE198,1:NEW
  255. 2630 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  256. 2640 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SA,SY,S9,HL,M$,DT,T,LN$,DV,NW,L$
  257. 2670 CLOSE1:GOSUB2160:CG=VAL(U$(8)):IFT=2THENF$=CHR$(13)+CHR$(10)
  258. 2680 DR$="0":IFDV>128THENDR$="1"
  259. 2690 D7=DVAND63:D7%=8-D7
  260. 3190 GOSUB5000
  261. 3210 REM
  262. 3220 P$="[139][147][158][208]OLLING [194]OOTH V1.0 BY [205]ICHAEL [200]ALL":GOSUB160
  263. 3225 P$="[155][208]OLLING [194]OOTH V1.1 MODS BY [196].[205]C[204]AUGHLIN[139][159]":GOSUB160
  264. 3270 P$="? - [196]ISPLAY [205]ENU.":GOSUB160
  265. 3280 GOSUB250:P$="[139][156][208]OLL: ":GOSUB170:L=1:GOSUB180
  266. 3290 IFCDTHENGOSUB390:GOTO410
  267. 3300 IFL$=""THEN3280
  268. 3310 E$=CHR$(ASC(L$)AND127):IFE$="Q"THEN410
  269. 3320 IFE$="?"THEN3380
  270. 3340 IFE$="A"THENGOSUB3490
  271. 3345 IFE$="S"THENGOSUB4220
  272. 3350 IFE$="V"ANDSS=1THENGOSUB3730
  273. 3360 IFE$="%"ANDAC=65535THENGOSUB3760
  274. 3365 GOTO3280
  275. 3380 P$="[147] "+DC$+F$+"[158]       [211][212]/[210] [208]OLLING [194]OOTH V1.1":GOSUB160
  276. 3384 P$="            [194]Y [205]ICHAEL [200]ALL"+F$+DC$+F$+F$:GOSUB160
  277. 3385 P$="<[158][193]>NSWER [208]OLL":GOSUB160
  278. 3386 IFSS=1THENP$="<[158][214]>IEW [193]NSWERS":GOSUB160
  279. 3390 P$="<[158][209]>UIT TO [194][194][211]":GOSUB160
  280. 3400 IFAC=65535THENP$="<[158]%>[197]DITOR [205]ENU":GOSUB160
  281. 3410 P$="<[158][211]>EE [209]UESTIONS":GOSUB160
  282. 3420 P$="<[158]?>[212]HIS [205]ENU":GOSUB160:GOTO3280
  283. 3490 P$="[139][193]NSWER [208]OLL":GOSUB160
  284. 3500 GOSUB250
  285. 3510 FORXX=1TONM
  286. 3520 P$="[139]"+QU$(XX)+"[158]":GOSUB160:L=40:GOSUB180
  287. 3530 IFCDTHENRETURN
  288. 3540 IFL$=""THEN3520
  289. 3550 RE$(XX)=""+QU$(XX)+F$+""+L$
  290. 3560 NEXTXX
  291. 3565 P$="[139]":GOSUB160
  292. 3570 FORT=1TONM
  293. 3580 P$=RE$(T):GOSUB160
  294. 3590 NEXTT
  295. 3600 P$="[139]":GOSUB160
  296. 3610 P$="[150][195]ORRECT/[193]BORT? (Y/N/A): ":GOSUB170:L=1:GOSUB180
  297. 3620 IFCDTHENRETURN
  298. 3630 IFL$=""THEN3610
  299. 3640 IFL$="N"ORL$="[206]"THEN3490
  300. 3645 IFL$="A"ORL$="[193]"THENRETURN
  301. 3650 P$=F$+"[208]LEASE WAIT...SAVING INFO...":GOSUB160
  302. 3660 OPEN1,D7,5,DR$+":(POLL INFO),A":GOSUB220:IFER$>"01"THEN3720
  303. 3662 PRINT#1,""+U$(1)+":"
  304. 3663 PRINT#1,CHR$(13)
  305. 3670 FORT=1TONM
  306. 3680 PRINT#1,RE$(T)
  307. 3690 NEXTT
  308. 3700 PRINT#1,DC$
  309. 3710 PRINT#1,F$
  310. 3720 CLOSE1:RETURN
  311. 3730 REM -- VIEW ANSWERS --
  312. 3740 DV=D7:FI$="(POLL INFO)":GOSUB450
  313. 3750 GOTO3280
  314. 3760 REM -- EDITOR MENU  --
  315. 3770 P$="[147] "+DC$+"           [208]OLLING [194]OOTH [197]DITOR"+F$+DC$+F$+F$:GOSUB160
  316. 3780 P$="<[158][195]>REATE [209]UESTIONS":GOSUB160
  317. 3785 P$="<[158][214]>IEW [209]UESTIONS":GOSUB160
  318. 3790 P$="<[158][209]>UIT [197]DITOR":GOSUB160
  319. 3800 P$="<[158][210]>EMOTE [211]YS[207]P [205]ENU":GOSUB160
  320. 3805 P$="<[158][218]>[210]ESET [208]OLLING [194]OOTH":GOSUB160
  321. 3810 P$="<[158]?>[212]HIS [205]ENU"+F$:GOSUB160
  322. 3820 GOSUB250:P$=F$+"[159][197]DITOR: ":GOSUB170:L=1:GOSUB180
  323. 3830 IFCDTHENRETURN
  324. 3840 IFL$=""THEN3760
  325. 3850 IFL$="C"THEN3910
  326. 3860 IFL$="V"THENGOSUB4220
  327. 3870 IFL$="Q"THEN3220
  328. 3880 IFL$="R"THENGOSUB270
  329. 3882 IFL$="Z"THENGOSUB6000
  330. 3900 IFL$="?"THEN3760
  331. 3905 GOTO3820
  332. 3910 P$="[147] "+DC$+"             [195]REATE [209]UESTIONS"+F$+DC$+F$+F$:GOSUB160
  333. 3915 P$="([208]RESS [210][197][212][213][210][206] TO EXIT THIS...)[139]":GOSUB160
  334. 3920 P$="[200]OW MANY QUESTIONS? (1-20): [158]":GOSUB170:L=2:GOSUB180
  335. 3930 IFCDTHENRETURN
  336. 3940 IFL$=""THEN3760
  337. 3950 NM=VAL(L$)
  338. 3960 IFNM<1ORNM>20THEN3920
  339. 3970 FORXX=1TONM
  340. 3980 P$="[139][209]UESTION #"+STR$(XX)+":":GOSUB160:L=40:GOSUB180
  341. 3990 IFCDTHENRETURN
  342. 4000 IFL$=""THEN3980
  343. 4010 QU$(XX)=Q$+L$+Q$
  344. 4020 NEXTXX
  345. 4030 FORT=1TONM
  346. 4040 P$=STR$(T)+". "+QU$(T):GOSUB160
  347. 4050 NEXTT
  348. 4060 P$="[139]":GOSUB160
  349. 4070 P$="[197]NTER # TO CHANGE OR PRESS [210][197][212][213][210][206]: ":GOSUB170:L=3:GOSUB180
  350. 4080 IFCDTHENRETURN
  351. 4090 IFL$=""THEN4130
  352. 4100 P$=F$+"[210]E-ENTER QUESTION #"+L$+":":GOSUB160:L=40:GOSUB180
  353. 4110 QU$(XX)=Q$+L$+Q$
  354. 4120 GOTO4030
  355. 4130 P$="[139][195]AN CALLER VIEW ANSWERS? (Y/N): ":GOSUB170:L=1:GOSUB180
  356. 4131 IFCDTHENRETURN
  357. 4132 IFL$=""THEN4130
  358. 4133 IFL$="Y"THENSS=1
  359. 4134 IFL$="N"THENSS=0
  360. 4135 P$=F$+"[208]LEASE WAIT...SAVING QUESTIONS...":GOSUB160
  361. 4140 PRINT#15-D7%,"S"+DR$+":(QUESTIONS)"
  362. 4150 OPEN1,D7,5,DR$+":(QUESTIONS),S,W"
  363. 4160 PRINT#1,NM
  364. 4165 PRINT#1,SS
  365. 4170 FORT=1TONM
  366. 4180 PRINT#1,QU$(T)
  367. 4190 NEXTT
  368. 4200 CLOSE1
  369. 4210 GOTO3760
  370. 4220 REM -- VIEW QUESTIONS --
  371. 4230 P$="":GOSUB160:FORT=1TONM
  372. 4240 P$=""+STR$(T)+". "+QU$(T):GOSUB160
  373. 4245 NEXTT
  374. 4250 P$="":GOSUB160
  375. 4260 RETURN
  376. 5000 REM -- GET QUESTIONS --
  377. 5010 OPEN1,D7,5,DR$+":(QUESTIONS)":GOSUB220:IFER$="00"ORAC=65535THEN5060
  378. 5020 P$="[208]OLLING [194]OOTH IS NOT SET UP YET.":GOSUB160
  379. 5025 CLOSE1
  380. 5030 P$="[208]LEASE SEND FEEDBACK TO SYSOP AND LET":GOSUB160
  381. 5040 P$="HIM KNOW THAT IT IS NOT SET UP.":GOSUB160
  382. 5050 GOTO 410
  383. 5060 INPUT#1,NM
  384. 5061 INPUT#1,SS
  385. 5070 FORT=1TONM
  386. 5080 INPUT#1,QU$(T)
  387. 5090 NEXTT
  388. 5100 CLOSE1
  389. 5110 RETURN
  390. 6000 IFAC<>65535THENRETURN
  391. 6005 P$="[210]ESET? (Y/N): ":GOSUB170:L=1:GOSUB180
  392. 6010 IFCDTHENRETURN
  393. 6020 IFL$=""THEN6000
  394. 6030 IFL$="N"THENRETURN
  395. 6035 PRINT#15-D7%,"S"+DR$+":(POLL INFO)"
  396. 6040 GOTO6110
  397. 6100 OPEN1,D7,5,D7$+":(POLL INFO)"
  398. 6110 CLOSE1:OPEN1,D7,5,DR$+":(POLL INFO),S,W"
  399. 6120 PRINT#1,CHR$(13)+"    [159][200][207][205][197] OR [208] [208]AUSES, [211][208][193][195][197] [193]BORTS"
  400. 6130 PRINT#1,CHR$(13)
  401. 6140 CLOSE1
  402. 6150 RETURN
  403.